﻿'Imports Framework.Data

'Public Class Settings
'    Private Shared mSettingsEnabled As Boolean = False
'    Private Shared mSettingsRead As Boolean = False
'    Private Shared mTraceDB As Boolean

'    Public Shared Sub EnableSettings()
'        mSettingsEnabled = True
'    End Sub

'    Public Shared ReadOnly Property TraceDB() As Boolean
'        Get
'            If Not mSettingsRead Then LoadSettings()
'            Return mTraceDB
'        End Get
'    End Property

'    Public Shared Sub SetTraceDB(ByVal value As Boolean)
'        If mTraceDB <> value Then
'            Using t As New TransactionScope
'                MetaData.SetValue("DataStore_TraceDB", value, t)
'                t.SetClassFieldValue(GetType(Settings), "mTraceDB", value)
'                t.Complete()
'            End Using
'        End If
'    End Sub

'    Private Shared Sub LoadSettings()
'        If mSettingsEnabled Then
'            mSettingsRead = True
'            mTraceDB = MetaData.GetValueAsBoolean("DataStore_TraceDB", False)
'        End If
'    End Sub

'End Class
